home *** CD-ROM | disk | FTP | other *** search
/ Amiga CD-ROM Collection / Amiga CD-ROM Collection - Auge 4000 and Cactus and Demo Util.iso / cactus / 09 / microemacs / .emacsrc next >
Text File  |  1988-01-19  |  5KB  |  218 lines
  1. ;    EMACS.RC:    Startup file for MicroEMACS 3.8
  2. ;
  3. ;            This file is executed everytime the
  4. ;            editor is entered
  5.  
  6. set $discmd "FALSE"
  7. write-message "[Setting up....]"
  8.  
  9. ; If you screen "SNOWS", uncomment this line
  10. ;    set $flicker "TRUE"
  11.  
  12. ; If you are on an IBM-PC EGA card and want to force the
  13. ; screen to EGA mode, uncomment the following line
  14. ;    set $sres "EGA"
  15.  
  16. ;    ***** Rebind the Function key group
  17.  
  18. bind-to-key search-forward        FN0
  19. bind-to-key search-reverse        FN1
  20. bind-to-key hunt-forward        FN2
  21. bind-to-key hunt-backward        FN3
  22. bind-to-key next-window            FN4
  23. bind-to-key execute-macro        FN5
  24. bind-to-key find-file            FN6
  25. bind-to-key execute-file        FN7
  26. bind-to-key save-file            FN8
  27. bind-to-key exit-emacs            FN9
  28.  
  29. bind-to-key apropos            FNR
  30. bind-to-key describe-key        FNS
  31. bind-to-key fill-paragraph        FNT
  32. bind-to-key shell-command        FNX
  33. bind-to-key i-shell            FNY
  34.  
  35. ;    set screen colors
  36. add-global-mode "black"
  37.  
  38. ;    toggle function key window off
  39. 1 store-macro
  40.     save-window
  41.     1 next-window
  42.     !if &sequal "Function Keys" $cbufname
  43.         delete-window
  44.     !endif
  45.     bind-to-key execute-macro-14 FNP
  46. !force    restore-window
  47.     write-message "[Function key window OFF]"
  48. !endm
  49.  
  50. ;    toggle function key window back on
  51. 14 store-macro
  52.     1 next-window
  53.     !if &sequal $cbufname "emacs.hlp"
  54.         execute-macro-11
  55.     !endif
  56.     !if ¬ &sequal $cbufname "Function Keys"
  57.         1 split-current-window
  58.         select-buffer "Function Keys"
  59.         add-mode "red"
  60. !force        5 resize-window
  61.         beginning-of-file
  62.     !endif
  63.     bind-to-key execute-macro-1 FNP
  64.     2 next-window
  65.     write-message "[Function key window ON]"
  66. !endm
  67.  
  68. ;    Enter Help
  69. 2 store-macro
  70.     1 next-window        ;Make sure the function key window isn't up!
  71.     !if &sequal $cbufname "Function Keys"
  72.         delete-window
  73.         bind-to-key execute-macro-14 FNP
  74.     !endif
  75.     help
  76.     8 resize-window
  77.     bind-to-key execute-macro-12 FNT
  78.     bind-to-key execute-macro-13 FNS
  79.     bind-to-key execute-macro-11 FNQ
  80.     bind-to-key execute-macro-15 ^XO
  81.     bind-to-key execute-macro-15 ^XP
  82.     bind-to-key execute-macro-15 FN4
  83.     add-mode "red"
  84.     beginning-of-file
  85.     2 forward-character
  86.     clear-message-line
  87. !endm
  88.  
  89. ;    Exit Help
  90. 11 store-macro
  91.     bind-to-key previous-page FNT
  92.     bind-to-key next-page FNS
  93.     bind-to-key execute-macro-2 FNQ
  94.     bind-to-key next-window ^XO
  95.     bind-to-key previous-window ^XP
  96.     bind-to-key next-window FN4
  97.     delete-window
  98.     clear-message-line
  99. !endm
  100.  
  101. ;    don't allow these commands from within the HELP screen
  102. 15    store-macro
  103.     write-message "[Use F2 to exit HELP]"
  104. !endm
  105.  
  106. ;    last help page
  107. 12 store-macro
  108.     beginning-of-line
  109.     search-reverse "=>"
  110.     1 redraw-display
  111. !endm
  112.  
  113. ;    next help page
  114. 13 store-macro
  115.     beginning-of-line
  116.     2 forward-character
  117.     search-forward "=>"
  118.     1 redraw-display
  119. !endm
  120.  
  121. ;    reformat indented paragraph
  122.  
  123. 6 store-macro
  124.     write-message "                    [Fixing paragraph]"
  125.     set $discmd "FALSE"
  126.     kill-region
  127.     2 split-current-window
  128.     select-buffer "[temp]"
  129.     yank
  130.     beginning-of-file
  131.     replace-string "~n    " "~n"
  132.     66 set-fill-column
  133.     fill-paragraph
  134.     77 set-fill-column
  135.     beginning-of-file
  136.     handle-tab
  137.     replace-string ~n "~n    "
  138.     end-of-file
  139.     2 delete-previous-character
  140.     beginning-of-file
  141.     set-mark
  142.     end-of-file
  143.     kill-region
  144.     unmark-buffer
  145.     delete-window
  146.     yank
  147.     delete-buffer "[temp]"
  148.     set $discmd "TRUE"
  149.     write-message "                    [Fixed paragraph]"
  150. !endm
  151.  
  152. ;    indent region
  153.  
  154. 7 store-macro
  155.     write-message "                    [Indenting region]"
  156.     kill-region
  157.     2 split-current-window
  158.     select-buffer "[temp]"
  159.     yank
  160.     beginning-of-file
  161.     handle-tab
  162.     replace-string "~n" "~n    "
  163.     end-of-file
  164.     4 delete-previous-character
  165.     beginning-of-file
  166.     set-mark
  167.     write-message "                    [Indenting region]"
  168.     end-of-file
  169.     kill-region
  170.     unmark-buffer
  171.     delete-window
  172.     yank
  173.     delete-buffer "[temp]"
  174.     write-message "                    [Region Indented]"
  175. !endm
  176.  
  177. ;    undent region
  178.  
  179. 8 store-macro
  180.     write-message "                    [Undenting region]"
  181.     kill-region
  182.     2 split-current-window
  183.     select-buffer "[temp]"
  184.     yank
  185.     beginning-of-file
  186.     delete-next-character
  187.     replace-string "~n    " "~n"
  188.     end-of-file
  189.     2 delete-previous-character
  190.     beginning-of-file
  191.     set-mark
  192.     write-message "                    [Undenting region]"
  193.     end-of-file
  194.     kill-region
  195.     unmark-buffer
  196.     delete-window
  197.     yank
  198.     delete-buffer "[temp]"
  199.     write-message "                    [Region undented]"
  200. !endm
  201.  
  202. ;    bring up the function key window
  203.  
  204.     1 split-current-window
  205.     select-buffer "Function Keys"
  206.     add-mode "red"
  207.     5 resize-window
  208.     insert-string "f1 search      f2 search back | F1 toggle function list F2 toggle help file~n"
  209.     insert-string "f3 hunt        f4 hunt back   | F3 find command/apropos F4 describe key~n"
  210.     insert-string "f5 next window f6 exec macro  | F5 reformat paragraph   F6 ref undented region~n"
  211.     insert-string "f7 find file   f8 exec file   | F7 indent region        F8 undent region~n"
  212.     insert-string "f9 save file  f10 exit emacs  | F9 execute DOS command F10 shell up~n"
  213.     beginning-of-file
  214.     unmark-buffer
  215.     next-window
  216.     set $discmd "TRUE"
  217.     write-message "[Emacs is READY]"
  218.